home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Score Keeper (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  436 b   |  15 lines
  1. 0 print"[147]"tab(13)"score keeper"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #49-2 :
  4. 3 rem      score keeper
  5. 4 rem    solution by
  6. 5 rem      craig ewert
  7. 6 rem ==================================
  8. 11 goto 20
  9. 12 for k=0 to 4: if sc>hs(k) then 14
  10. 13 next: return
  11. 14 input"initials";in$
  12. 15 for i=5 to k+1 step -1:hs(i)=hs(i-1):hi$(i)=hi$(i-1):next:hi$(k)=in$:hs(k)=sc
  13. 16 print"[147]": for i=0 to 4:print i+1,hs(i),hi$(i): next: return
  14. 20 input"score";sc: gosub 12: goto 20: end
  15.